﻿
Partial Class _Default
    Inherits BasePage

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ChkProgramRight(TextBox1.Text) Then
            ShowMessageForAjax(Button1, "有權限")
        Else
            ShowMessageForAjax(Button1, "無權限")
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Redirect(("~/WebForm/Main/MainPage.aspx"))
        If Not IsPostBack Then
            TextBox2.Text = BaseUrl
            TextBox3.Text = FullBaseUrl
            TextBox4.Text = FullBaseUrlPathAndQuery
        End If
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Session("UID") = "AA"
        Session("dbName") = "AUOOAMS"
        Session("UserName") = "王金水"
        Session("ActualUID") = "AA"
        Session("ActualUserName") = "王金水"
        Session("GlobalLanguage") = "zh-tw"
        ReadRights(UID, Me.AppRelativeVirtualPath.ToString())
        Response.Redirect("~/WebForm/Main/MainPage.aspx")

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Response.Redirect("~/Default2.aspx")
    End Sub
End Class
